unit frMainTest;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, cxPropertiesStore, StdCtrls, DBCtrls, Mask, DB, ADODB, Grids,
  DBGrids, DBTables, DBXpress, SqlExpr, DBCommon;

type
  TForm1 = class(TForm)
    ADOConnection1: TADOConnection;
    tblQBAttrib: TADOTable;
    tblQBAttribid: TAutoIncField;
    tblQBAttribDescription: TStringField;
    tblQBAttribFieldName: TStringField;
    tblQBAttribFieldSQL: TStringField;
    tblQBAttribQBEntityID: TIntegerField;
    tblQBAttribSQLDatatype: TStringField;
    tblQBAttribDI_ATTR_TYPE_ID: TIntegerField;
    tblQBAttribKeyOrder: TIntegerField;
    tblQBAttribIsVisible: TBooleanField;
    tblQBAttribImportType: TIntegerField;
    tblQBAttribstm: TBytesField;
    Button1: TButton;
    Button2: TButton;
    Database1: TDatabase;
    Query1: TQuery;
    Query1inc: TSmallintField;
    Query1name: TStringField;
    Query1lname: TStringField;
    DBGrid1: TDBGrid;
    Query2: TQuery;
    DataSource1: TDataSource;
    procedure Button1Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form1: TForm1;

implementation

uses
  ufrLDFieldsEditorName, uLDStoreEditor;

{$R *.dfm}

procedure TForm1.Button1Click(Sender: TObject);
begin

  StoreEditor.Path := '..\';
  StoreEditor.Save;
  with TfrLDFieldsEditorName.Create(nil) do
  try
    SourceDataSet := Query1;
    ShowModal;
  finally
    Free;
  end;
end;

end.
